Private Sub Form_Error(DataErr As Integer, HideStdMsg As Integer)
    Dim intResponse As Integer
    If DataErr = 3201 Then        'A referential integrity error
                                  'has been detected
        intResponse = MsgBox("An author must be a member of _
                      OLS. Would you like to add a record to _
                      the MEMBERS table?", vbYesNo)
        If intResponse = vbYes Then
            DoCmd.OpenForm "MEMBERS", , , , acFormAdd, acDialog
        End If
    Else
        intResponse = MsgBox("Non-referential integrity error _
                      has occurred.")
    End If
    HideStdMsg = acDataErrContinue
End Sub
